home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / tpascal / bpvbx / event.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-02-25  |  1.5 KB  |  61 lines
  1. unit event;
  2.  
  3. interface
  4.  
  5. uses
  6.     WinTypes,
  7.     vbapi_;
  8.  
  9. {---------------------------------------------------------------------------
  10.  Event list
  11. ---------------------------------------------------------------------------
  12.  Define the consecutive indicies for the events
  13. ---------------------------------------------------------------------------}
  14. type
  15.     EVENT_Index = (
  16.         EVENT_Circle_ClickIn,
  17.         EVENT_Circle_ClickOut,
  18.         EVENT_Circle_DRAGDROP,
  19.         EVENT_Circle_DRAGOVER,
  20.         EVENT_Circle_Last);
  21.  
  22. {---------------------------------------------------------------------------
  23.  Event procedure parameter prototypes
  24. ---------------------------------------------------------------------------}
  25. const
  26.     ParmamTypes_ClickIn:    array[0..1]of word = (ET_R4, ET_R4);
  27.  
  28.     EventClickInName:    array[0..8] of Char = 'ClickIn'#0;
  29.     EventClickInParm: array[0..24] of char = 'X As Single, Y As Single'#0;
  30.  
  31.     Event_ClickIn: tEVENTINFO  = (
  32.         npszName:         tOffset(@EventClickInName);
  33.         cParms:            2;
  34.         cwParms:         4;
  35.         npParmTypes:    tOffset(@ParmamTypes_ClickIn);
  36.         npszParmProf:    tOffSet(@EventClickInParm);
  37.         fl:                0
  38.     );
  39.  
  40.     EventClickOutName:    array[0..9] of Char = 'ClickOut'#0;
  41.  
  42.     Event_ClickOut: tEVENTINFO  = (
  43.         npszName:         tOffset(@EventClickOutName);
  44.         cParms:            0;
  45.         cwParms:         0;
  46.         npParmTypes:    0;
  47.         npszParmProf:    0;
  48.         fl:                0
  49.     );
  50.  
  51.     Circle_Events: array[EVENT_Index] of ofsPEVENTInfo = (
  52.         ofsPEventInfo(@Event_ClickIn),
  53.         ofsPEventInfo(@Event_ClickOut),
  54.         PEVENTINFO_STD_DRAGDROP,
  55.         PEVENTINFO_STD_DRAGOVER,
  56.         0);
  57.  
  58. implementation
  59.  
  60. end.
  61.